Public Class NegTiposAsistente
    Private PropCadenaConexion As String
    Private propError As String

    Public Sub New(ByVal CadenaConexion As String)
        Me.PropCadenaConexion = CadenaConexion
    End Sub

    Public Function ListaTipoAsistenteVigente() As Collection
        Dim DAOTP As New DLLDao.DaoTipoAsistente(Me.PropCadenaConexion)
        Dim CollResul As Collection
        Try
            CollResul = DAOTP.DAOListaTipoAsistenteVigente()
        Catch ex As Exception
            Me.propError = DAOTP.ErrorMensaje
            CollResul = Nothing
        Finally
            DAOTP.Dispose()
            DAOTP = Nothing
        End Try

        Return CollResul
    End Function

    Public Sub Dispose()
        Try
            GC.SuppressFinalize(Me)
        Catch ex As Exception
        End Try
    End Sub
End Class
